10 REM   >> PONG SOUND EFFECT <<
20 :
30 PRINT"[147] HIT ANY KEY FOR PONG"
40 PRINT"   ( * TO END PGM )"
50 GET A$ : IF A$="" THEN 50
60 IF A$="*" THEN 90
70 GOSUB 1000 : REM SOUND SUBROUTINE
80 GOTO 30
90 FOR X=1TO24: POKE 54272+X,0 : NEXT
100 END
110 :
1000 REM  ** SOUND SUBROUTINE **
1010 :
1020 S=54272
1030 POKE S+1,20
1040 POKE S+5,9
1050 POKE S+6,9
1060 POKE S+24,15
1070 POKE S+4,17
1075 FOR D=1 TO 20: NEXT D
1080 FOR D=1 TO 20: NEXT D
1090 POKE S+4,16
1100 RETURN